home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Oberon / examples.lha / Examples / AMOK / IntuiPointer / IntuiPointerDemo.mod < prev    next >
Text File  |  1995-04-27  |  2KB  |  75 lines
  1. (*---------------------------------------------------------------------------
  2.  :Program.     IntuiPointerDemo.mod
  3.  :Author.      Christian Stiens
  4.  :Address.     Snail-Mail:           E-Mail:
  5.  :Address.     Heustiege 2           UUCP: Christian_Stiens@ouzonix.bo.open.de
  6.  :Address.     W-4710 Lüdinghausen   FIDO: 2:241/5807
  7.  :Copyright.   public domain
  8.  :Language.    Oberon-2
  9.  :Translator.  Amiga Oberon V2.42d
  10.  :Translator.  Oberon-A 5.13
  11.  :Imports.     IntuiPointer
  12.  :History.     30-Oct-94, [fjc] added conditional compiled code to work
  13.  :History.         under Oberon-A.
  14. ---------------------------------------------------------------------------*)
  15.  
  16. (* $CLEAR OberonA *)
  17.  
  18. MODULE IntuiPointerDemo;
  19.  
  20. (* <*IF OberonA THEN*> $IF OberonA *)
  21.   IMPORT
  22.     d:=Dos, ip:=IntuiPointer,
  23.     SYS := SYSTEM,
  24.     u := Utility,
  25.     I := Intuition;
  26.  
  27.   VAR
  28.     win : I.WindowPtr;
  29.     i   : INTEGER;
  30. (* <*ELSE*> $ELSE *)
  31.   IMPORT
  32.     d:=Dos, ip:=IntuiPointer,
  33.     di:=Display;
  34.  
  35.   VAR
  36.     win : di.WindowPtr;
  37.     i   : INTEGER;
  38. (* <*END*> $END *)
  39.  
  40. BEGIN
  41. (* <*IF OberonA THEN*> $IF OberonA *)
  42.   win := I.OpenWindowTagsA (
  43.     NIL,
  44.     I.waTitle,    SYS.ADR ("IntuiPointerDemo"),
  45.     I.waActivate, TRUE,
  46.     u.end );
  47.   IF win # NIL THEN
  48.     d.Delay(30);
  49.     ip.Busy (win);
  50.     d.Delay(30);
  51.     ip.Normal (win);
  52.     d.Delay(30);
  53.     FOR i := 0 TO 16 DO
  54.       d.Delay(20);
  55.       ip.AnimBusy(win,i);
  56.     END;
  57.     ip.Normal(win);
  58.     d.Delay(50);
  59.     I.CloseWindow(win);
  60.   END;
  61. (* <*ELSE*> $ELSE *)
  62.   NEW(win);
  63.   IF di.OpenWindow(win,"IntuiPointerDemo",0,50,640,100,NIL) THEN
  64.     d.Delay(30);
  65.     FOR i := 0 TO 16 DO
  66.       d.Delay(20);
  67.       ip.AnimBusy(win.window,i);
  68.     END;
  69.     ip.Normal(win.window);
  70.     d.Delay(50);
  71.     di.Close(win);
  72.   END;
  73. (* <*END*> $END *)
  74. END IntuiPointerDemo.
  75.